home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / tonyray1 / ec1.prg < prev    next >
Encoding:
Text File  |  1985-09-01  |  553 b   |  35 lines
  1. CLEA
  2. SELE CURRENT
  3. SET INDE TO CURRNAME,CURRNMBR
  4. mname=space(20)
  5. doname=.t.
  6. DO WHIL DONAME
  7. CLEA
  8. @01,00 say '                         EDIT FILES'
  9. @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
  10. @06,03 say 'or (cr) to exit'
  11. READ
  12. CLEA gets
  13. mname=trim(mname)
  14. IF len(mname)=0
  15. doname=.f.
  16. EXIT
  17. ENDI
  18. FIND &mname
  19. IF eof()
  20. @15,25 SAY CHR(7)+'no client with that name - try again'
  21. xx=1
  22. DO WHIL XX<35
  23. XX=XX+1
  24. mname=space(20)
  25. ENDD
  26. LOOP
  27. ENDI
  28. SET FORM TO E1
  29. READ
  30. SET FORM TO
  31. mname=space(20)
  32. ENDD
  33. curr='013'
  34. RETU
  35.